<script>on returnInFieldsend mouseUp to button id 5put line 1 of me into meend returnInField</script>
</part>
<part>
<id>1</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>1</top>
<right>24</right>
<bottom>19</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>129</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>icon</name>
<script></script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>41</left>
<top>155</top>
<right>119</right>
<bottom>172</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<name>More Choices</name>
<script>on mouseUpif the short name of me is "More Choices" thenlock screenset the name of me to "Fewer Choices"set the rect of button "Find" to "170,155,294,172"set the name of button "Find" to "Construct Browse List"set the rect of cd fld "datum" to "237,95,294,109"show cd fld "type"show cd fld "spec"show cd fld "header m"show button "more 1"show button "more 2"hide cd fld "header f"unlock screenelselock screenset the name of me to "More Choices"set the name of button "Construct Browse List" to "Find"set the rect of button "Find" to "258,155,294,172"set the rect of cd fld "datum" to "41,95,294,109"hide cd fld "type"hide cd fld "spec"hide cd fld "header m"hide button "more 1"hide button "more 2"show cd fld "header f"unlock screenend iftabkeyend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>258</left>
<top>155</top>
<right>294</right>
<bottom>172</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<name>Find</name>
<script>on mouseUpglobal findStringset the cursor to watchput cd fld "datum" into findStringif findString is empty then exit mouseUp------------------------------------------------------ simple findif the short name of me is "Find" thenlock screenpop cardfind findStringif the result is "not found"thenpush cardgo card "Find"unlock screenanswer quote & findString & quote && "not found." with "OK"elseunlock screenend ifelse----------------------------------------------------- complex find-- first verify OK combinationput cd fld "type" into typeput cd fld "spec" into specif ((type="duration" or type="creation date" or type="mod. date")¬and word 1 of cd field "spec" ≠ "is") or ((word 1 of cd field "spec"="is") and¬(type="name" or type="copyright" or type="description"¬or type="key words" or type="type" or type="user1" or type="user2")) thenanswer "Illegal search specifications!" with "OK"exit mouseUpend if-- translateif type="user1" then put "category 1" into typeif type="user2" then put "category 2" into typeif type="Creation Date" then put "created" into typeset the cursor to watch------------------------- construct the browse listlock screenlock messagesput empty into cdNamesput empty into cdIDsif word 1 of spec≠"is" then------------------------ search text fieldsgo first cd of bg "segment info"unmark all cdsput empty into browseListrepeat-- find the stringif spec = "contains" then find chars findString in fld typeif spec = "contains exactly" then find whole findString in fld typeif spec = "starts with" then find findString in fld typeif the result is "not found" then exit repeat-- compile listif short name of this bg is "segment info" thenif the marked of this cd is true then exit repeatmark cdput fld "name" && "/" & short id of this cd into snameif browseList is empty thenput sname & return into browseListelseput place2(sname,browseList) into browseListend ifgo next cardelseexit repeatend ifend repeat-- finish upif browseList is empty thengo card "Find"unlock messagesunlock screenanswer "No segments meet search criterion!" with "OK"elsego card "main"put empty into segDaterepeat with counter=1 to number of lines of browseListput offset("/",line counter of browseList) into firstput number of chars of line counter of browseList into lastput (char value(first)+1 to value(last) of line counter of browseList) & return after segDatedelete char first-1 to last of line counter of browseListend repeatput segDate into fld "browse date"put browseList into fld "Browse List"unlock messagesif the visible of fld "segment index" is true then send mouseUp to button "toggle"setScreenunlock screen with visual zoom in fastend ifelse------------------------ search numeric fieldsunlock screenunmark all cdsput empty into browseList-- compile listconvert findString to secondsrepeat with counter=7 to number of cds-- check the specif fld type of cd counter is empty then next repeatput fld type of cd counter into theTypeconvert theType to secondsif value(theType &&(word 2 of spec)&&findString) then mark cd counter-- add to listif the marked of cd counter is true thenput (fld "name" of cd counter) && "/" & (short id of cd counter) into snameif browseList is empty thenput sname & return into browseListelseput place2(sname,browseList) into browseListend ifend ifend repeatconvert findString to short date-- finish upif browseList is empty thengo card "Find"unlock messagesunlock screenanswer "No segments meet search criterion!" with "OK"elsego card "main"put empty into segDaterepeat with counter=1 to number of lines of browseListput offset("/",line counter of browseList) into firstput number of chars of line counter of browseList into lastput (char value(first)+1 to value(last) of line counter of browseList) & return after segDatedelete char first-1 to last of line counter of browseListend repeatput segDate into fld "browse date"put browseList into fld "Browse List"unlock messagesif the visible of fld "segment index" is true then send mouseUp to button "toggle"unlock screen with visual zoom in fastend ifend ifend ifend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>42</left>
<top>91</top>
<right>58</right>
<bottom>114</bottom>
</rect>
<style>opaque</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>131</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>more 1</name>
<script>on mouseDownshow cd fld "type menu"end mouseDownon mouseLeavelock screenput line 1 of the selection into choicehide cd fld "type menu"if choice is empty then exit mouseLeaveput choice into cd fld "type"unlock screenend mouseLeave-- hilite the current lineon mouseStillDownput trunc((item 2 of the mouseloc - item 2 of the topleft of cd fld "type menu") /¬the textheight of cd fld "type menu")+1 into currentLineif locWithin(the mouseLoc,rect of cd fld "type menu") thenselectWholeLine currentLine,name of cd fld "type menu"elseselect emptyend ifend mouseStillDownfunction locWithin theLoc,theRectif (item 1 of theLoc<item 1 of theRect) or (item 1 of theLoc>item 3 of theRect) or¬(item 2 of theLoc<item 2 of theRect) or (item 2 of theLoc>item 4 of theRect) thenreturn falseelsereturn trueend ifend locWithin-- select the whole line of a field (from APPLE HYPERCARD HELP stack)/gron selectWholeLine lineNumber, theField-- This handler selects a whole line of text, including the final-- return character, in the field. Requires a complete field record-- as in “the target” or “the name of,” not just the field name.put line lineNumber of the value of theField into theTextif theText is not empty thenput (number of chars of line 1 to lineNumber of ¬the value of theField) + 1 into endChardo "select char (endChar - length(theText)) to endChar of" ¬&& theFieldend ifend selectWholeLine</script>
</part>
<part>
<id>7</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>134</left>
<top>92</top>
<right>151</right>
<bottom>112</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>131</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>more 2</name>
<script>on mouseDownif cd fld "type" ≠ "Creation Date" and cd fld "type" ≠ "Mod. Date" and¬cd fld "type" ≠ "Duration" thenshow cd fld "spec menu 1"elseshow cd fld "spec menu 2"end ifend mouseDownon mouseLeavelock screenif the visible of cd fld "spec menu 1" is true then put "spec menu 1" into theMenuelse put "spec menu 2" into theMenuput line 1 of the selection into choicehide cd fld theMenuif choice is empty then exit mouseLeaveput choice into cd fld "spec"unlock screenend mouseLeave-- hilite the current lineon mouseStillDownif the visible of cd fld "spec menu 1" is true then put "spec menu 1" into theMenuelse put "spec menu 2" into theMenuput trunc((item 2 of the mouseloc - item 2 of the topleft of cd fld theMenu) /¬the textheight of cd fld theMenu)+1 into currentLineif locWithin(the mouseLoc,rect of cd fld theMenu) thenselectWholeLine currentLine,name of cd fld theMenuelseselect emptyend ifend mouseStillDownfunction locWithin theLoc,theRectif (item 1 of theLoc<item 1 of theRect) or (item 1 of theLoc>item 3 of theRect) or¬(item 2 of theLoc<item 2 of theRect) or (item 2 of theLoc>item 4 of theRect) thenreturn falseelsereturn trueend ifend locWithin-- select the whole line of a field (from APPLE HYPERCARD HELP stack)/gron selectWholeLine lineNumber, theField-- This handler selects a whole line of text, including the final-- return character, in the field. Requires a complete field record-- as in “the target” or “the name of,” not just the field name.put line lineNumber of the value of theField into theTextif theText is not empty thenput (number of chars of line 1 to lineNumber of ¬the value of theField) + 1 into endChardo "select char (endChar - length(theText)) to endChar of" ¬&& theFieldend ifend selectWholeLine</script>
</part>
<part>
<id>8</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>39</left>
<top>72</top>
<right>207</right>
<bottom>87</bottom>
</rect>
<style>opaque</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>Header M</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>57</left>
<top>95</top>
<right>130</right>
<bottom>109</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>type</name>
<script>on mouseDownshow cd fld "type menu"end mouseDownon mouseLeavelock screenput line 1 of the selection into choicehide cd fld "type menu"if choice is empty then exit mouseLeaveput choice into cd fld "type"unlock screenend mouseLeave-- hilite the current lineon mouseStillDownput trunc((item 2 of the mouseloc - item 2 of the topleft of cd fld "type menu") /¬the textheight of cd fld "type menu")+1 into currentLineif locWithin(the mouseLoc,rect of cd fld "type menu") thenselectWholeLine currentLine,name of cd fld "type menu"elseselect emptyend ifend mouseStillDownfunction locWithin theLoc,theRectif (item 1 of theLoc<item 1 of theRect) or (item 1 of theLoc>item 3 of theRect) or¬(item 2 of theLoc<item 2 of theRect) or (item 2 of theLoc>item 4 of theRect) thenreturn falseelsereturn trueend ifend locWithin-- select the whole line of a field (from APPLE HYPERCARD HELP stack)/gron selectWholeLine lineNumber, theField-- This handler selects a whole line of text, including the final-- return character, in the field. Requires a complete field record-- as in “the target” or “the name of,” not just the field name.put line lineNumber of the value of theField into theTextif theText is not empty thenput (number of chars of line 1 to lineNumber of ¬the value of theField) + 1 into endChardo "select char (endChar - length(theText)) to endChar of" ¬&& theFieldend ifend selectWholeLine</script>
</part>
<part>
<id>11</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>149</left>
<top>95</top>
<right>231</right>
<bottom>109</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>plain</textStyle>
<textHeight>13</textHeight>
<name>spec</name>
<script>on mouseDownif cd fld "type" ≠ "Creation Date" and cd fld "type" ≠ "Mod. Date" and¬cd fld "type" ≠ "Duration" thenshow cd fld "spec menu 1"elseshow cd fld "spec menu 2"end ifend mouseDownon mouseLeavelock screenif the visible of cd fld "spec menu 1" is true then put "spec menu 1" into theMenuelse put "spec menu 2" into theMenuput line 1 of the selection into choicehide cd fld theMenuif choice is empty then exit mouseLeaveput choice into cd fld "spec"unlock screenend mouseLeave-- hilite the current lineon mouseStillDownif the visible of cd fld "spec menu 1" is true then put "spec menu 1" into theMenuelse put "spec menu 2" into theMenuput trunc((item 2 of the mouseloc - item 2 of the topleft of cd fld theMenu) /¬the textheight of cd fld theMenu)+1 into currentLineif locWithin(the mouseLoc,rect of cd fld theMenu) thenselectWholeLine currentLine,name of cd fld theMenuelseselect emptyend ifend mouseStillDownfunction locWithin theLoc,theRectif (item 1 of theLoc<item 1 of theRect) or (item 1 of theLoc>item 3 of theRect) or¬(item 2 of theLoc<item 2 of theRect) or (item 2 of theLoc>item 4 of theRect) thenreturn falseelsereturn trueend ifend locWithin-- select the whole line of a field (from APPLE HYPERCARD HELP stack)/gron selectWholeLine lineNumber, theField-- This handler selects a whole line of text, including the final-- return character, in the field. Requires a complete field record-- as in “the target” or “the name of,” not just the field name.put line lineNumber of the value of theField into theTextif theText is not empty thenput (number of chars of line 1 to lineNumber of ¬the value of theField) + 1 into endChardo "select char (endChar - length(theText)) to endChar of" ¬&& theFieldend ifend selectWholeLine</script>
</part>
<part>
<id>13</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>42</left>
<top>95</top>
<right>130</right>
<bottom>206</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>type menu</name>
<script>-- on mouseLeave-- lock screen-- hide me-- unlock screen-- end mouseLeave-- -- hilite the current line-- on mouseWithin-- put trunc((item 2 of the mouseloc - item 2 of the topleft of me) /¬-- the textheight of me)+1 into currentLine-- selectWholeLine currentLine,the name of the target-- end mouseWIthin-- on mouseUp-- lock screen-- hide me-- put the value of the clickLine into cd field "type"-- unlock screen-- end mouseUp</script>
</part>
<part>
<id>14</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>134</left>
<top>95</top>
<right>231</right>
<bottom>133</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>spec menu 1</name>
<script></script>
</part>
<part>
<id>15</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>134</left>
<top>95</top>
<right>231</right>
<bottom>134</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Palatino</font>
<textSize>10</textSize>
<textStyle>bold</textStyle>
<textHeight>13</textHeight>
<name>spec menu 2</name>
<script>on mouseLeavelock screenhide meunlock screenend mouseLeave-- hilite the current lineon mouseWithinput trunc((item 2 of the mouseloc - item 2 of the topleft of me) /¬the textheight of me)+1 into currentLineselectWholeLine currentLine,the name of the targetend mouseWIthinon mouseUplock screenhide meput the value of the clickLine into cd field "spec"unlock screenend mouseUp</script>
